"sumna" <-
function (x) 
##=======================================================
##  count the number of NA's in an object
##=======================================================
{
    sum(is.na(x))
}
